From a48cebff61a4f9122e6ddb2643d431f59e29a57b Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Mon, 16 Jan 2006 21:39:04 +0000 Subject: [PATCH] (rmail): Create the buffer using file-name-nondirectory. (rmail-mode-map): Bind j to rmail-show-message instead of rmail-message. --- lisp/mail/rmail.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 2be7c01a953..f18c12bcfd8 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -794,7 +794,8 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." (insert-file-contents-literally file-name) ;; We need to re-initialize rmail-mode later. (setq major-mode 'fundamental-mode)) - (switch-to-buffer (get-buffer-create file-name)) + (switch-to-buffer + (get-buffer-create (file-name-nondirectory file-name))) (insert-file-contents-literally file-name) (setq buffer-file-name file-name)) ;; As we have read a file as raw-text, the buffer is set to @@ -882,7 +883,7 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." (define-key rmail-mode-map "g" 'rmail-get-new-mail) (define-key rmail-mode-map "h" 'rmail-summary) (define-key rmail-mode-map "i" 'rmail-input) - (define-key rmail-mode-map "j" 'rmail-message) + (define-key rmail-mode-map "j" 'rmail-show-message) (define-key rmail-mode-map "k" 'rmail-kill-label) (define-key rmail-mode-map "l" 'rmail-summary-by-labels) (define-key rmail-mode-map "\e\C-h" 'rmail-summary) -- 2.30.2